home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_33044.txt < prev    next >
Text File  |  1990-08-07  |  6KB  |  299 lines
  1. -- card: 33044 from stack: in.0-2
  2. -- bmap block id: 35746
  3. -- flags: 0000
  4. -- background id: 10385
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hideOtherFields
  9.   unhiliteButtons
  10. end closeCard
  11.  
  12. on unhiliteButtons
  13.   repeat with n = 1 to 4
  14.     set the hilite of btn ("n" & n) to false
  15.   end repeat
  16. end unhiliteButtons
  17.  
  18. on hideOtherFields
  19.   repeat with n = 1 to 4
  20.     hide cd fld ("p" & n)
  21.   end repeat
  22. end hideOtherFields
  23.  
  24. on showMyField
  25.   put last char of short name of target into whatNumber
  26.   set the hilite of btn ("n" & whatNumber) to true
  27.   show cd fld ("p" & whatNumber)
  28. end showMyField
  29.  
  30.  
  31. -- part 1 (button)
  32. -- low flags: 00
  33. -- high flags: 2000
  34. -- rect: left=396 top=275 right=296 bottom=420
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 1014 / 1014
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: 
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   lock screen
  46.   go prev
  47.   unlock screen with wipe left
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 2 (field)
  53. -- low flags: 81
  54. -- high flags: 2002
  55. -- rect: left=98 top=247 right=286 bottom=377
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 174
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 14
  63. -- part name: p1
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   unhiliteButtons
  67.   hide me
  68. end mouseUp
  69.  
  70.  
  71. -- part 3 (field)
  72. -- low flags: 81
  73. -- high flags: 2002
  74. -- rect: left=98 top=247 right=286 bottom=377
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 0
  78. -- font id: 174
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 14
  82. -- part name: p2
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   unhiliteButtons
  86.   hide me
  87. end mouseUp
  88.  
  89.  
  90. -- part 4 (field)
  91. -- low flags: 81
  92. -- high flags: 2002
  93. -- rect: left=98 top=247 right=286 bottom=377
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 174
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 14
  101. -- part name: p3
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   unhiliteButtons
  105.   hide me
  106. end mouseUp
  107.  
  108.  
  109. -- part 5 (field)
  110. -- low flags: 81
  111. -- high flags: 2002
  112. -- rect: left=98 top=247 right=286 bottom=377
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 0
  116. -- font id: 174
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 14
  120. -- part name: p4
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   unhiliteButtons
  124.   hide me
  125. end mouseUp
  126.  
  127.  
  128.  
  129. -- part 6 (button)
  130. -- low flags: 00
  131. -- high flags: 0000
  132. -- rect: left=120 top=226 right=245 bottom=132
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: n1
  141.  
  142.  
  143. -- part 7 (button)
  144. -- low flags: 00
  145. -- high flags: 0000
  146. -- rect: left=184 top=226 right=245 bottom=199
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: n2
  155.  
  156.  
  157. -- part 8 (button)
  158. -- low flags: 00
  159. -- high flags: 0000
  160. -- rect: left=250 top=226 right=245 bottom=265
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: n3
  169.  
  170.  
  171. -- part 9 (button)
  172. -- low flags: 00
  173. -- high flags: 0000
  174. -- rect: left=316 top=226 right=245 bottom=331
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: n4
  183.  
  184.  
  185. -- part 10 (button)
  186. -- low flags: 00
  187. -- high flags: 2000
  188. -- rect: left=99 top=162 right=246 bottom=162
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: s1
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   lock screen
  200.   unhiliteButtons
  201.   hideOtherFields
  202.   unlock screen
  203.   lock screen
  204.   showMyField
  205.   unlock screen with wipe right
  206. end mouseUp
  207.  
  208.  
  209.  
  210. -- part 11 (button)
  211. -- low flags: 00
  212. -- high flags: 2000
  213. -- rect: left=166 top=162 right=246 bottom=229
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: s2
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   lock screen
  225.   unhiliteButtons
  226.   hideOtherFields
  227.   unlock screen
  228.   lock screen
  229.   showMyField
  230.   unlock screen with wipe right
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 12 (button)
  236. -- low flags: 00
  237. -- high flags: 2000
  238. -- rect: left=231 top=162 right=246 bottom=294
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: s3
  247. ----- HyperTalk script -----
  248. on mouseUp
  249.   lock screen
  250.   unhiliteButtons
  251.   hideOtherFields
  252.   unlock screen
  253.   lock screen
  254.   showMyField
  255.   unlock screen with wipe right
  256. end mouseUp
  257.  
  258.  
  259.  
  260. -- part 13 (button)
  261. -- low flags: 00
  262. -- high flags: 2000
  263. -- rect: left=298 top=162 right=246 bottom=361
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: s4
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   lock screen
  275.   unhiliteButtons
  276.   hideOtherFields
  277.   unlock screen
  278.   lock screen
  279.   showMyField
  280.   unlock screen with wipe right
  281. end mouseUp
  282.  
  283.  
  284.  
  285. -- part contents for card part 2
  286. ----- text -----
  287. This is a sample of our new ‚ÄúDuratest‚Äù upholstery fabric, which is stain-resistant and hardy.
  288.  
  289. -- part contents for card part 3
  290. ----- text -----
  291. This is ‚ÄúScotWeave‚Äù, a new line of water-resistant fabric, for raincoats and umbrellas.
  292.  
  293. -- part contents for card part 4
  294. ----- text -----
  295. This is our new no-iron ‚ÄúLight Linen‚Äù‚Äî it comes in 30 colors & patterns, and lives up to its name.
  296.  
  297. -- part contents for card part 5
  298. ----- text -----
  299. We are going after the growing menswear market with this line of silk/wool suiting fabric.